data bikemodels;
length Model $12 Class $8 Frame $15;
input Model $ Class $ Price Frame $;
cards;
BlackBora Track 796 Aluminum
DeltaBreeze Road 399 CroMoly
JetStream Track 1130 CroMoly
Mistral Road 1995 CarbonComp
Nor'easter Mountain 899 Aluminum
SantaAna Mountain 459 Aluminum
Scirocco Mountain 2256 Titanium
TradeWind Road 759 Aluminum
;
run;
proc print data=bikemodels;
run;

* where w/o macro;

proc print data=bikemodels noobs;
title 'Current Models';
format Price dollar6.;
run;

proc sort data=bikemodels2;
by Price;
run;

proc print data=bikemodels2 noobs;
title 'Current Models';
format Price dollar6.;
run;

* where with macro;

%macro printit;
proc print data=bikemodels noobs;
title 'Current Models';
format Price dollar6.;
run;
%mend printit;

%printit
proc sort data=bikemodels;
by Price;
run;
%printit